/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Basic / BlitzMAP / example_source / display_map_example.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.;      |        |
|00000010| 20 20 20 20 20 20 20 64 | 69 73 70 6c 61 79 5f 6d |       d|isplay_m|
|00000020| 61 70 5f 65 78 61 6d 70 | 6c 65 2e 62 62 32 00 00 |ap_examp|le.bb2..|
|00000030| 3b 20 54 68 69 73 20 69 | 73 20 61 6e 20 65 78 61 |; This i|s an exa|
|00000040| 6d 70 6c 65 20 6f 66 20 | 68 6f 77 20 74 6f 20 64 |mple of |how to d|
|00000050| 69 73 70 6c 61 79 20 61 | 20 6d 61 70 20 63 72 65 |isplay a| map cre|
|00000060| 61 74 65 64 20 62 79 20 | 42 6c 69 74 7a 4d 41 50 |ated by |BlitzMAP|
|00000070| 2e 00 00 3b 20 54 68 65 | 20 66 6f 6c 6c 6f 77 69 |...; The| followi|
|00000080| 6e 67 20 66 69 6c 65 73 | 20 6e 65 65 64 20 74 6f |ng files| need to|
|00000090| 20 62 65 20 69 6e 20 74 | 68 65 20 73 61 6d 65 20 | be in t|he same |
|000000a0| 64 72 61 77 65 72 20 61 | 73 20 74 68 65 00 3b 20 |drawer a|s the.; |
|000000b0| 70 72 6f 67 72 61 6d 2e | 2e 2e 00 00 3b 20 65 78 |program.|....; ex|
|000000c0| 61 6d 70 6c 65 2e 6d 61 | 70 20 20 20 20 20 20 3b |ample.ma|p      ;|
|000000d0| 6d 61 70 20 64 61 74 61 | 00 3b 20 65 78 61 6d 70 |map data|.; examp|
|000000e0| 6c 65 2e 6d 61 70 2e 73 | 68 70 20 20 3b 20 73 68 |le.map.s|hp  ; sh|
|000000f0| 61 70 65 73 00 3b 20 65 | 78 61 6d 70 6c 65 2e 6d |apes.; e|xample.m|
|00000100| 61 70 2e 70 61 6c 20 20 | 3b 20 70 61 6c 65 74 74 |ap.pal  |; palett|
|00000110| 65 00 00 3b 20 53 65 65 | 20 61 6c 73 6f 20 74 68 |e..; See| also th|
|00000120| 65 20 65 78 61 6d 70 6c | 65 20 63 61 6c 6c 65 64 |e exampl|e called|
|00000130| 20 76 61 6c 75 65 73 5f | 61 6e 64 5f 65 66 66 65 | values_|and_effe|
|00000140| 63 74 73 2e 62 62 32 00 | 3b 20 49 74 20 73 68 6f |cts.bb2.|; It sho|
|00000150| 75 6c 64 20 62 65 20 69 | 6e 20 74 68 65 20 73 61 |uld be i|n the sa|
|00000160| 6d 65 20 61 72 63 68 69 | 76 65 2c 20 61 6e 64 20 |me archi|ve, and |
|00000170| 67 69 76 65 73 20 61 6e | 20 65 78 61 6d 70 6c 65 |gives an| example|
|00000180| 00 3b 20 6f 66 20 74 68 | 65 20 75 73 65 20 6f 66 |.; of th|e use of|
|00000190| 20 76 61 6c 75 65 73 20 | 61 6e 64 20 65 66 66 65 | values |and effe|
|000001a0| 63 74 73 20 73 61 76 65 | 64 20 66 72 6f 6d 20 42 |cts save|d from B|
|000001b0| 6c 69 74 7a 4d 41 50 2e | 00 00 3b 20 4c 69 7a 20 |litzMAP.|..; Liz |
|000001c0| 54 75 63 6b 65 72 20 31 | 39 39 36 00 3b 20 74 75 |Tucker 1|996.; tu|
|000001d0| 63 6b 73 40 70 61 76 69 | 6c 69 6f 6e 2e 63 6f 2e |cks@pavi|lion.co.|
|000001e0| 75 6b 00 00 00 cd 0a 20 | 31 2c 22 65 78 61 6d 70 |uk..... |1,"examp|
|000001f0| 6c 65 2e 6d 61 70 2e 73 | 68 70 22 20 20 3b 20 66 |le.map.s|hp"  ; f|
|00000200| 69 6c 65 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 61 |ile cont|aining a|
|00000210| 6c 6c 20 6f 66 20 74 68 | 65 20 62 6c 6f 63 6b 73 |ll of th|e blocks|
|00000220| 00 00 a6 04 20 31 2c 22 | 65 78 61 6d 70 6c 65 2e |.... 1,"|example.|
|00000230| 6d 61 70 22 2c 30 20 20 | 20 20 20 20 3b 20 6c 6f |map",0  |    ; lo|
|00000240| 61 64 20 6d 61 70 20 66 | 69 6c 65 20 69 6e 74 6f |ad map f|ile into|
|00000250| 20 62 61 6e 6b 20 31 00 | 00 ce 01 20 30 2c 22 65 | bank 1.|... 0,"e|
|00000260| 78 61 6d 70 6c 65 2e 6d | 61 70 2e 70 61 6c 22 20 |xample.m|ap.pal" |
|00000270| 3b 20 63 6f 6c 6f 75 72 | 73 20 66 6f 72 20 62 61 |; colour|s for ba|
|00000280| 63 6b 67 72 6f 75 6e 64 | 00 00 80 01 2e 70 6f 73 |ckground|.....pos|
|00000290| 20 20 3b 20 73 74 6f 72 | 65 73 20 74 68 65 20 78 |  ; stor|es the x|
|000002a0| 20 61 6e 64 20 79 20 70 | 6f 73 69 74 69 6f 6e 73 | and y p|ositions|
|000002b0| 20 6f 66 20 74 68 65 20 | 6d 61 70 00 20 20 78 2e | of the |map.  x.|
|000002c0| 77 20 3a 20 79 00 80 02 | 20 80 01 00 00 80 01 2e |w : y...| .......|
|000002d0| 73 69 7a 65 20 3b 20 73 | 74 6f 72 65 73 20 74 68 |size ; s|tores th|
|000002e0| 65 20 78 20 73 69 7a 65 | 20 61 6e 64 20 79 20 73 |e x size| and y s|
|000002f0| 69 7a 65 20 6f 66 20 74 | 68 65 20 6d 61 70 00 20 |ize of t|he map. |
|00000300| 20 78 2e 77 20 3a 20 79 | 00 80 02 20 80 01 00 00 | x.w : y|... ....|
|00000310| 6d 61 70 73 69 7a 65 2e | 73 69 7a 65 5c 78 3d da |mapsize.|size\x=.|
|00000320| 02 2e 77 20 28 a6 01 28 | 31 29 29 20 3b 20 52 65 |..w (..(|1)) ; Re|
|00000330| 61 64 20 6d 61 70 73 69 | 7a 65 20 64 61 74 61 20 |ad mapsi|ze data |
|00000340| 66 72 6f 6d 20 74 68 65 | 00 6d 61 70 73 69 7a 65 |from the|.mapsize|
|00000350| 5c 79 3d da 02 2e 77 20 | 28 a6 01 28 31 29 2b 32 |\y=...w |(..(1)+2|
|00000360| 29 20 20 20 20 3b 20 62 | 65 67 69 6e 6e 69 6e 67 |)    ; b|eginning|
|00000370| 20 6f 66 20 74 68 65 20 | 6d 61 70 20 62 61 6e 6b | of the |map bank|
|00000380| 00 00 80 04 20 78 79 28 | 6d 61 70 73 69 7a 65 5c |.... xy(|mapsize\|
|00000390| 78 2d 31 2c 6d 61 70 73 | 69 7a 65 5c 79 2d 31 29 |x-1,maps|ize\y-1)|
|000003a0| 20 3b 20 63 72 65 61 74 | 65 20 61 6e 20 61 72 72 | ; creat|e an arr|
|000003b0| 61 79 20 66 6f 72 20 68 | 6f 6c 64 69 6e 67 20 74 |ay for h|olding t|
|000003c0| 68 65 20 6d 61 70 20 64 | 61 74 61 00 00 6d 3d 34 |he map d|ata..m=4|
|000003d0| 00 00 80 16 20 79 79 3d | 30 20 80 18 20 6d 61 70 |.... yy=|0 .. map|
|000003e0| 73 69 7a 65 5c 79 2d 31 | 20 20 20 20 20 20 20 20 |size\y-1|        |
|000003f0| 20 3b 20 72 65 61 64 20 | 64 61 74 61 20 69 6e 74 | ; read |data int|
|00000400| 6f 20 74 68 65 20 61 72 | 72 61 79 00 20 20 80 16 |o the ar|ray.  ..|
|00000410| 20 78 78 3d 30 20 80 18 | 20 6d 61 70 73 69 7a 65 | xx=0 ..| mapsize|
|00000420| 5c 78 2d 31 00 20 20 78 | 79 28 78 78 2c 79 79 29 |\x-1.  x|y(xx,yy)|
|00000430| 3d da 02 2e 77 28 a6 01 | 28 31 29 2b 6d 29 2b 31 |=...w(..|(1)+m)+1|
|00000440| 00 20 20 6d 2b 32 00 20 | 20 80 17 20 78 78 00 80 |.  m+2. | .. xx..|
|00000450| 17 20 79 79 00 00 80 2b | 20 a6 01 20 31 20 20 20 |. yy...+| .. 1   |
|00000460| 20 3b 20 4e 6f 77 20 74 | 68 65 20 64 61 74 61 20 | ; Now t|he data |
|00000470| 69 73 20 68 65 6c 64 20 | 69 6e 20 74 68 65 20 61 |is held |in the a|
|00000480| 72 72 61 79 20 62 61 6e | 6b 20 31 20 69 73 20 6e |rray ban|k 1 is n|
|00000490| 6f 20 6c 6f 6e 67 65 72 | 20 6e 65 65 64 65 64 2e |o longer| needed.|
|000004a0| 00 00 6d 61 70 70 6f 73 | 2e 70 6f 73 5c 78 3d 30 |..mappos|.pos\x=0|
|000004b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004c0| 20 3b 20 70 6f 73 69 74 | 69 6f 6e 20 74 68 65 20 | ; posit|ion the |
|000004d0| 6d 61 70 20 6f 6e 20 74 | 68 65 20 73 63 72 65 65 |map on t|he scree|
|000004e0| 6e 00 6d 61 70 70 6f 73 | 5c 79 3d 38 00 00 80 0b |n.mappos|\y=8....|
|000004f0| 20 6d 61 70 70 6f 73 5c | 78 2b 32 30 3e 6d 61 70 | mappos\|x+20>map|
|00000500| 73 69 7a 65 5c 78 20 80 | 21 20 6d 61 70 70 6f 73 |size\x .|! mappos|
|00000510| 5c 78 3d 6d 61 70 73 69 | 7a 65 5c 78 2d 32 30 20 |\x=mapsi|ze\x-20 |
|00000520| 3b 20 65 72 72 6f 72 20 | 63 68 65 63 6b 69 6e 67 |; error |checking|
|00000530| 00 80 0b 20 6d 61 70 70 | 6f 73 5c 78 3c 30 20 80 |... mapp|os\x<0 .|
|00000540| 21 20 6d 61 70 70 6f 73 | 5c 78 3d 30 00 00 80 0b |! mappos|\x=0....|
|00000550| 20 6d 61 70 70 6f 73 5c | 79 2b 31 32 3e 6d 61 70 | mappos\|y+12>map|
|00000560| 73 69 7a 65 5c 79 20 80 | 21 20 6d 61 70 70 6f 73 |size\y .|! mappos|
|00000570| 5c 79 3d 6d 61 70 73 69 | 7a 65 5c 79 2d 31 32 20 |\y=mapsi|ze\y-12 |
|00000580| 3b 20 65 72 72 6f 72 20 | 63 68 65 63 6b 69 6e 67 |; error |checking|
|00000590| 00 80 0b 20 6d 61 70 70 | 6f 73 5c 79 3c 30 20 80 |... mapp|os\y<0 .|
|000005a0| 21 20 6d 61 70 70 6f 73 | 5c 79 3d 30 00 00 80 37 |! mappos|\y=0...7|
|000005b0| 20 31 30 30 20 3b 20 77 | 61 69 74 20 66 6f 72 20 | 100 ; w|ait for |
|000005c0| 64 69 73 6b 20 61 63 74 | 69 76 69 74 79 20 74 6f |disk act|ivity to|
|000005d0| 20 73 74 6f 70 20 62 65 | 66 6f 72 65 20 65 6e 74 | stop be|fore ent|
|000005e0| 65 72 69 6e 67 20 42 4c | 49 54 5a 20 6d 6f 64 65 |ering BL|ITZ mode|
|000005f0| 00 00 80 34 20 20 20 20 | 20 3b 20 65 6e 74 65 72 |...4    | ; enter|
|00000600| 20 42 4c 49 54 5a 20 6d | 6f 64 65 00 00 3b 2d 2d | BLITZ m|ode..;--|
|00000610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000650| 2d 00 00 80 08 20 64 72 | 61 77 5f 6d 61 70 7b 6d |-.... dr|aw_map{m|
|00000660| 61 70 78 2c 6d 61 70 79 | 7d 00 00 3b 20 56 61 6c |apx,mapy|}..; Val|
|00000670| 75 65 73 20 70 61 73 73 | 65 64 20 61 72 65 20 74 |ues pass|ed are t|
|00000680| 68 65 20 78 20 61 6e 64 | 20 79 20 70 6f 73 69 74 |he x and| y posit|
|00000690| 69 6f 6e 20 6f 66 20 74 | 68 65 20 6d 61 70 20 28 |ion of t|he map (|
|000006a0| 74 6f 70 20 6c 65 66 74 | 20 6f 66 20 64 69 73 70 |top left| of disp|
|000006b0| 6c 61 79 29 00 00 20 20 | 80 15 20 78 79 28 29 00 |lay)..  |.. xy().|
|000006c0| 00 20 20 20 80 16 20 79 | 63 6f 75 6e 74 65 72 3d |.   .. y|counter=|
|000006d0| 30 20 80 18 20 31 31 20 | 20 20 3b 20 31 32 20 72 |0 .. 11 |  ; 12 r|
|000006e0| 6f 77 73 20 74 6f 20 74 | 68 65 20 6d 61 70 00 00 |ows to t|he map..|
|000006f0| 20 20 20 20 80 16 20 78 | 63 6f 75 6e 74 65 72 3d |    .. x|counter=|
|00000700| 30 20 80 18 20 31 39 20 | 20 3b 20 32 30 20 63 6f |0 .. 19 | ; 20 co|
|00000710| 6c 75 6d 6e 73 20 74 6f | 20 74 68 65 20 6d 61 70 |lumns to| the map|
|00000720| 00 00 20 20 20 20 20 20 | 80 29 20 64 30 2c 78 79 |..      |.) d0,xy|
|00000730| 28 6d 61 70 78 2b 78 63 | 6f 75 6e 74 65 72 2c 6d |(mapx+xc|ounter,m|
|00000740| 61 70 79 2b 79 63 6f 75 | 6e 74 65 72 29 00 20 20 |apy+ycou|nter).  |
|00000750| 20 20 20 20 80 29 20 64 | 31 2c 78 63 6f 75 6e 74 |    .) d|1,xcount|
|00000760| 65 72 20 80 7c 20 34 20 | 3b 28 4c 53 4c 20 34 20 |er .| 4 |;(LSL 4 |
|00000770| 69 73 20 61 20 71 75 69 | 63 6b 20 77 61 79 20 6f |is a qui|ck way o|
|00000780| 66 20 2b 31 36 29 00 20 | 20 20 20 20 20 80 29 20 |f +16). |     .) |
|00000790| 64 32 2c 79 63 6f 75 6e | 74 65 72 20 80 7c 20 34 |d2,ycoun|ter .| 4|
|000007a0| 00 20 20 20 20 20 20 80 | 39 20 cb 08 00 00 20 20 |.      .|9 ....  |
|000007b0| 20 20 80 17 20 78 63 6f | 75 6e 74 65 72 00 00 20 |  .. xco|unter.. |
|000007c0| 20 80 17 20 79 63 6f 75 | 6e 74 65 72 00 00 80 02 | .. ycou|nter....|
|000007d0| 20 80 08 00 00 3b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | ....;--|--------|
|000007e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 00 00 c7 82 |--------|----....|
|00000820| 20 30 2c 34 34 2c 31 39 | 32 2c 24 34 31 34 2c 38 | 0,44,19|2,$414,8|
|00000830| 2c 33 32 2c 30 20 3b 20 | 63 72 65 61 74 65 20 63 |,32,0 ; |create c|
|00000840| 6f 70 6c 69 73 74 20 30 | 00 00 c7 83 20 30 20 20 |oplist 0|.... 0  |
|00000850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000860| 3b 20 75 73 65 20 63 6f | 70 6c 69 73 74 20 30 20 |; use co|plist 0 |
|00000870| 66 6f 72 20 64 69 73 70 | 6c 61 79 00 00 c7 86 20 |for disp|lay.... |
|00000880| 30 2c 30 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0,0     |        |
|00000890| 20 20 3b 20 67 65 74 20 | 70 61 6c 65 74 74 65 00 |  ; get |palette.|
|000008a0| 00 d0 01 20 30 2c 33 32 | 30 2c 31 39 32 2c 35 20 |... 0,32|0,192,5 |
|000008b0| 3b 20 63 72 65 61 74 65 | 20 61 20 62 69 74 6d 61 |; create| a bitma|
|000008c0| 70 20 66 6f 72 20 74 68 | 65 20 77 69 6e 64 6f 77 |p for th|e window|
|000008d0| 00 00 64 72 61 77 5f 6d | 61 70 7b 6d 61 70 70 6f |..draw_m|ap{mappo|
|000008e0| 73 5c 78 2c 6d 61 70 70 | 6f 73 5c 79 7d 00 00 c7 |s\x,mapp|os\y}...|
|000008f0| 84 20 30 2c 30 2c 30 2c | 30 00 00 80 0a 00 00 80 |. 0,0,0,|0.......|
|00000900| 02 00 00 00 00          |                         |.....   |        |
+--------+-------------------------+-------------------------+--------+--------+